#!/usr/bin/perl
#index.cgi

require './mdmjobs-lib.pl';

@jobs=qw(user group groupmember CIFS NFS FTP HTTP atalk domain gateway DNS email timeout date logs reboot alert upgrade);

&header($text{'index_title'}, "", "index", 0, 1);

if (!(-f $config{'mdmlogfile'})){
	`mkdir -p $config{'mdmlogdir'}`;
	`touch $config{'mdmlogfile'}`;
}

&foreign_require("mdmmod","mdmmod-lib.pl");
local $mdmmod=&foreign_call("mdmmod","get_mdm_mod");
if ($mdmmod ne 'server'){
	print "$text{'deny'}\n";
	&footer("/",$text{'index'});
	exit;
}

print "<div style='valign:top;width:90%;height:300;overflow:auto'>";
foreach $i (@jobs) {
		push(@links, "${i}_setting.cgi");
		push(@titles, $text{"${i}_title"});
		push(@descs, $text{"${i}_desc"});
	}
&ezstor_icons_table(\@links, \@titles, \@descs);
&footer("/", $text{'index'});


1;
